1 READ B:BC=BC+1:RC=RC+1:A=PEEK(64)*256+PEEK(63)
2 IF B=-1 THEN PRINT "END OF DATA":GOTO9
3 IF CH<>A THEN RC=1:CH=A
4 IF B<>INT(B) OR B<0 OR B>255 THEN C$="ERROR!"
5 PRINT"LINE:"A"DATA"B,C$:C$=""
6 GET Q$:IF Q$="" THEN 6
7 IF Q$="R"THEN PRINT BC;RC
8 GOTO 1
9 END